f(x) = If[0 < x < 1, sin(x) - x^(2)]
a = 0 (slider from 0 to 1)
A: (a, Integral[abs(Derivative[f]), 0, a])
B: (a, Integral[abs(Derivative[f]), 0, a] - f(a))